home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / gzip124.gz / gzip124 / gzip-1.2.4 / zforce.in (.txt) < prev    next >
Microsoft Windows Help File Content  |  1993-06-11  |  1KB  |  33 lines
  1. #!/bin/sh
  2. # zforce: force a gz extension on all gzip files so that gzip will not
  3. # compress them twice.
  4. # This can be useful for files with names truncated after a file transfer.
  5. # 12345678901234 is renamed to 12345678901.gz
  6. PATH="BINDIR:$PATH"; export PATH
  7. x=`basename $0`
  8. if test $# = 0; then
  9.   echo "force a '.gz' extension on all gzip files"
  10.   echo usage: $x files...
  11.   exit 1
  12. res=0
  13. for i do
  14.   if test ! -f "$i" ; then
  15.     echo ${x}: $i not a file
  16.     res=1
  17.     continue
  18.   test `expr "$i" : '.*[.-]z$'` -eq 0 || continue
  19.   test `expr "$i" : '.*[.-]gz$'` -eq 0 || continue
  20.   test `expr "$i" : '.*[.]t[ag]z$'` -eq 0 || continue
  21.   if gzip -l < "$i" 2>/dev/null | grep '^defl' > /dev/null; then
  22.     if test `expr "$i" : '^............'` -eq 12; then
  23.       new=`expr "$i" : '\(.*\)...$`.gz
  24.     else
  25.       new="$i.gz"
  26.     fi
  27.     if mv "$i" "$new" 2>/dev/null; then
  28.       echo $i -- replaced with $new
  29.       continue
  30.     fi
  31.     res=1; echo ${x}: cannot rename $i to $new
  32. exit $res
  33.